home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 24 / Mac Magazin and MacEasy Magazine CD - Issue 24.iso / Online / PageSpinner 1.2b3 / Settings / FTP / Save To FTP Server.txt < prev   
Text File  |  1996-08-03  |  420b  |  23 lines
  1. property gDesturl : ""
  2.  
  3. on specify_destination()
  4.     local prefsFile
  5.     set prefsFile to open for access file "FTP Server Settings"
  6.     set gDesturl to read prefsFile
  7.     close access of the prefsFile
  8. end specify_destination
  9.  
  10. on open doc
  11.     specify_destination()
  12.     
  13.     with timeout of 60000 seconds
  14.         tell application "Fetch"
  15.             put into url gDesturl item doc
  16.             beep
  17.             -- quit
  18.         end tell
  19.     end timeout
  20.     
  21. end open
  22.  
  23. specify_destination()